home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 October / EnigmA AMIGA RUN 22 (1997)(G.R. Edizioni)(IT)[!][issue 1997-10 & 11][EAR-CD VI].iso / progs / devel / pcq12d_2 / examples / today.p < prev    next >
Text File  |  1992-02-05  |  213b  |  15 lines
  1. Program Today;
  2.  
  3. {$I "Include:Utils/DateTools.i"}
  4.  
  5.  
  6. Var
  7.     TodayTime : DateDescription;
  8.  
  9. begin
  10.     TimeDesc(TodayTime);
  11.  
  12.     with TodayTime do
  13.     Writeln('The time is: ', Hour:2, ':', Minute:2, ':', Second:2);
  14. end.
  15.